home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / readonly.fpl < prev    next >
Text File  |  1996-02-14  |  555b  |  8 lines
  1. // $Id: ReadOnly.FPL,v 1.1 1996/02/14 13:40:09 av Rel $
  2. ConstructInfo("read_only", "{int b;b=ReadInfo(\"protectionbits\");if(ReadInfo(\"read_only\"))b|=4;else b&=~4;SetInfo(-1,\"protectionbits\",b);}", "", "LB", "", 0, 1, 0);
  3. Hook("GotFile", "{if(ReadInfo(\"protectionbits\")&4)SetInfo(-1,\"read_only\",1);}");
  4. AssignKey("PageDown();", "'Space'", "read_only&rwed_sensitive");
  5. AssignKey("PageUp();", "'Backspace'", "read_only&rwed_sensitive");
  6. AssignKey("PageUp();", "b", "read_only&rwed_sensitive");
  7. AssignKey("Kill();", "q", "read_only&rwed_sensitive");
  8.